Windows 3-Pak 2 - Disc 2/Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso/Telnet-Clients/secmail.exe/_setup.3/Group4/ISSIMG.dll/RCDATA/TAUDOFRM/TAUDOFRM.txt

Text File | 1997-10-04 | 8KB | 279 lines

object AudoFrm: TAudoFrm
  Left = 219
  Top = 150
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Audio Recorder'
  ClientHeight = 137
  ClientWidth = 353
  Color = clSilver
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object wave: TPaintBox
    Left = 8
    Top = 4
    Width = 338
    Height = 65
    Color = clWhite
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    OnPaint = wavePaint
  end
  object Bevel1: TBevel
    Left = 7
    Top = 3
    Width = 340
    Height = 67
  end
  object PlayBut: TSpeedButton
    Left = 8
    Top = 80
    Width = 25
    Height = 25
    Hint = 'Play'
    Enabled = False
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
      70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
      70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
      70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = PlayButClick
  end
  object RecordBut: TSpeedButton
    Left = 32
    Top = 80
    Width = 25
    Height = 25
    Hint = 'Record'
    Enabled = False
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
      80E338F33333333338F3E0F33333333380E338F3333FFF3338F3E0F338999833
      80E338F333888FF338F3E0F33999993380E338F3388888F338F3E0F339999933
      80E338F3388888F338F3E0F33999993380E338F33888883338F3E0F338999833
      80E338F33388833338F3E0F33333333380E338F33333333338F3E0F333333333
      80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
      00E33888888888888833EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = RecordButClick
  end
  object StopBut: TSpeedButton
    Left = 56
    Top = 80
    Width = 25
    Height = 25
    Hint = 'Stop'
    Enabled = False
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
      70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
      70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
      70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = StopButClick
  end
  object SpeedButton1: TSpeedButton
    Left = 320
    Top = 80
    Width = 25
    Height = 25
    Hint = 'Discard Current Recording'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFF000000000
      FFFFFFF8888888887FFFFFF0F8888880FFFFFFF8F7F7F7F87FFFFFF0F0707080
      FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
      FFFFFFF8F8F8F8F87FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF0F0707080
      FFFFFF78F8F8F8F87F7FF0F0F0708080F0FFF878F8F8F8F878FFFF00F0707080
      0FFFFF88F8F8F8F88FFFFFF0F0708080FFFFFFF8F8F8F8F87FFFFFF080808080
      FFFFFFF8F8F8F8F877FFFF00000000000FFFFF888888888887FFFF0F77788888
      0FFFFF8FFFFFFFFF87FFFF00000000000FFFFF88888888888FFFFFFFF08880FF
      FFFFFFFFF8FFF87FFFFFFFFFF00000FFFFFFFFFFF88888FFFFFF}
    NumGlyphs = 2
    OnClick = New1Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 118
    Width = 353
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object WaveIn: TEnhWaveIn
    samples = 11025
    MaxBuffers = 3
    OnData = WaveInData
    Left = 168
    Top = 31
  end
  object WaveOut: TEnhWaveOut
    samples = 11025
    OnDone = WaveOutDone
    Left = 136
    Top = 31
  end
  object MainMenu1: TMainMenu
    Left = 72
    Top = 32
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object New1: TMenuItem
        Caption = '&Discard'
        ShortCut = 0
        OnClick = New1Click
      end
      object Load1: TMenuItem
        Caption = '&Load'
        ShortCut = 0
        OnClick = Load1Click
      end
      object SaveAs1: TMenuItem
        Caption = '&Save As...'
        ShortCut = 0
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      Visible = False
      object Samples1: TMenuItem
        Caption = 'Samples &Bits'
        ShortCut = 0
        object N81: TMenuItem
          Caption = '&8'
          Checked = True
          ShortCut = 0
          OnClick = N81Click
        end
        object N161: TMenuItem
          Caption = '&16'
          ShortCut = 0
          OnClick = N161Click
        end
      end
      object SampleSize1: TMenuItem
        Caption = '&Sample Size'
        ShortCut = 0
        object N80001: TMenuItem
          Caption = '&8000'
          ShortCut = 0
          OnClick = N80001Click
        end
        object N110251: TMenuItem
          Caption = '&11025'
          Checked = True
          ShortCut = 0
          OnClick = N110251Click
        end
        object N220501: TMenuItem
          Caption = '&22050'
          ShortCut = 0
          OnClick = N220501Click
        end
        object N441001: TMenuItem
          Caption = '&44100'
          ShortCut = 0
          OnClick = N441001Click
        end
      end
      object Mono1: TMenuItem
        Caption = '&Mono'
        Checked = True
        ShortCut = 0
        OnClick = Mono1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object SoundRecorder1: TMenuItem
        Caption = '&Sound Recorder'
        ShortCut = 0
        OnClick = SoundRecorder1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'All CSF Files|*.csf|All Files|*.*'
    Options = [ofHideReadOnly]
    Title = 'Open MSF File'
    Left = 40
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'csf'
    FileEditStyle = fsEdit
    Filter = 'CSF File|*.csf|All Files|*.*'
    Options = [ofOverwritePrompt, ofPathMustExist, ofNoLongNames]
    Title = 'Save Sound File'
    Left = 104
    Top = 32
  end
  object ZipMaster1: TZipMaster
    Verbose = False
    Trace = False
    AddCompLevel = 9
    AddOptions = []
    ExtrOptions = []
    Left = 200
    Top = 32
  end
end